{$CLEO .cs}

//-------------MAIN---------------
thread 'STOP'

0adf: "fuh1" "~p~~h~power" 
0adf: "fuh2" "~p~~h~orgasm" 
0adf: "fuh3" "~p~~h~excite"

0AC6: 1@ = label @action_speed offset
if 0AF0: 0@      = get_int_from_ini_file "CLEO\sexshop_mod.ini" section "action_speed_key" key "to"
then 0A8C: write_memory 1@ size 4 value 0@ virtual_protect 0 
else 0A8C: write_memory 1@ size 4 value 54 virtual_protect 0
end 

const
    anim_rate_1 = 0@
    girl_1      = 1@
    girl_2      = 2@
    podm        = 3@   
    power       = 4@            
    anim_rate_1 = 5@   
    cent        = 6@            
    pos_y       = 7@
    get_org     = 8@
    org_count   = 9@
    func_active = 10@
    cath        = 11@
    anim_rate_2 = 12@
    delay       = 13@
    count       = 14@
    size_x      = 15@
    pos_x       = 16@
    tm_adr      = 17@
    param       = 18@         
end

var
cent:float
pos_y:float
end

anim_rate_2 = 0.0
anim_rate_1 = 0.0
:continue       
while true 
    wait 0
    0AB4: girl_1 = var 205
    0AB4: girl_2 = var 206
    0AB4: func_active = var 208
    if and
        056D:   actor girl_1 defined
        803B:   not  girl_1 == $PLAYER_ACTOR // (int)                                                                                                                                                                                                                                                    
    then
        if Actor.Animation(girl_1) == "LAPDAN_D"     
        then 
            04C4: store_coords_to 19@ 20@ 30@ from_actor $PLAYER_ACTOR with_offset 1.0 1.0 -2.0       
            Actor.PutAt( girl_1, 19@, 20@, 30@)
        end
    end
    if and                                                                                                                  
       056D:   actor girl_2 defined                                                                                            
       803B:   not  girl_2 == $PLAYER_ACTOR // (int)                                                                                                                                                                                                                                                        
    then                                                                                                                    
        if Actor.Animation(girl_2) == "LAPDAN_D"                                                                                           
        then                                      
            04C4: store_coords_to 19@ 20@ 30@ from_actor $PLAYER_ACTOR with_offset -1.0 1.0 -2.0                                       
            Actor.PutAt( girl_2, 19@, 20@, 30@)                                                                                           
        end                                                                                                                             
    end
    //----------------------
    //girl 1 anim func
    //----------------------
    if and
        056D:   actor girl_1 defined
        803B:   not  girl_1 == $PLAYER_ACTOR // (int)                                                                                                                                                                                                                                                    
    then
        //________________________________________________________________________________ 
        //items id = 1                                                                                         
        if and                                                                                                                                                                                                                           
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_P" //work                                                                                               
           Actor.Animation(girl_1) == "SEX_1_W"                                                                                                                                                                            
        then                                                                                                                                                                                                                        
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_P" at anim_rate_1 times_normal_rate                                               
            0393: actor girl_1 perform_animation "SEX_1_W" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_1 animation "SEX_1_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                        
        end
        //________________________________________________________________________________  
        //items id = 2                                                                                                                            
        if and                                                                                                                          
           Actor.Animation($PLAYER_ACTOR) == "SEX_2_P" //work                                                                   
           Actor.Animation(girl_1) == "SEX_2_W"                                                                                 
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "SEX_2_P" at anim_rate_1 times_normal_rate                                                                     
            0393: actor girl_1 perform_animation "SEX_2_W" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_1 animation "SEX_2_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                             
        end
        //________________________________________________________________________________  
        //items id = 3                                                                                                                                                      
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_P" //work                                                                                       
           Actor.Animation(girl_1) == "SEX_2_p"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_P" at anim_rate_1 times_normal_rate                                                                     
            0393: actor girl_1 perform_animation "SEX_2_p" at anim_rate_1 times_normal_rate 
            0613: get_org = actor girl_1 animation "SEX_2_p" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                   
        end
        //________________________________________________________________________________  
        //items id = 4                                                                                                                                                      
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_W" //work                                                                                       
           Actor.Animation(girl_1) == "SEX_2_P"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_W" at anim_rate_1 times_normal_rate                                                                     
            0393: actor girl_1 perform_animation "SEX_2_P" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_1 animation "SEX_1_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                         
        end
        //________________________________________________________________________________  
        //items id = 5
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_CUM_p" //work                                                                                       
           Actor.Animation(girl_1) == "SEX_1_CUM_w"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_CUM_p" at anim_rate_1 times_normal_rate                                                                     
            0393: actor girl_1 perform_animation "SEX_1_CUM_w" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_1 animation "SEX_1_cum_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                            
        end
        //________________________________________________________________________________  
        //items id = 7
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_W" //work                                                                                       
           Actor.Animation(girl_1) == "SEX_3_W"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_W" at anim_rate_1 times_normal_rate                                                                     
            0393: actor girl_1 perform_animation "SEX_3_W" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_1 animation "SEX_1_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                            
        end
        //________________________________________________________________________________  
        //items id = 8
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "BJ_COUCH_LOOP_p" //work                                                                                       
           Actor.Animation(girl_1) == "SEX_CAR_LOOP_W"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "BJ_COUCH_LOOP_p" at anim_rate_1 times_normal_rate                                                                     
            0393: actor girl_1 perform_animation "SEX_CAR_LOOP_W" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_1 animation "BJ_COUCH_LOOP_p" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_lod              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                     
        end
        //________________________________________________________________________________  
        //items id = 9
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "SEX_2_P" //work                                                                                       
           Actor.Animation(girl_1) == "SEX_1_P"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "SEX_2_P" at anim_rate_1 times_normal_rate                                                                     
            0393: actor girl_1 perform_animation "SEX_1_P" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_1 animation "SEX_1_p" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                       
        end
        //________________________________________________________________________________  
        if and                                                                                                                                                                                                                                                           
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_p"                                                                                                                                                                                                               
           Actor.Animation(girl_1) == "SNM_CANED_p"                                                                                                                                                                                                                          
        then                                                                                                                                                                                                                                                         
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_p" at anim_rate_1 times_normal_rate                                                                                                                                                                               
            0393: actor girl_1 perform_animation "SNM_CANED_p" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_1 animation "snm_caned_p" time              
            if and                                                       
                get_org >= 0.43                                              
                0.50 >= get_org                                              
            then gosub @audio_span             
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end               
        end
        //________________________________________________________________________________ 
        //items id = 16
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_P" //work                                                                                       
           Actor.Animation(girl_1) == "SEX_2_w"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_P" at anim_rate_1 times_normal_rate                                                                     
            0393: actor girl_1 perform_animation "SEX_2_w" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_1 animation "SEX_2_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                       
        end
        //________________________________________________________________________________  
        //items id = 13
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_W" //work                                                                                       
           Actor.Animation(girl_1) == "SEX_2_w"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_W" at anim_rate_1 times_normal_rate
            0393: actor girl_1 perform_animation "SEX_2_w" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_1 animation "SEX_2_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                      
        end
        //________________________________________________________________________________  
        //items id = 14
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_W" //work                                                                                       
           Actor.Animation(girl_1) == "SEX_1_w"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_W" at anim_rate_1 times_normal_rate
            0393: actor girl_1 perform_animation "SEX_1_w" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_1 animation "SEX_1_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                      
        end
        //________________________________________________________________________________  
        //items id = 18
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "BJ_COUCH_LOOP_p" //work                                                                                       
           Actor.Animation(girl_1) == "SEX_3_w"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "BJ_COUCH_LOOP_p" at anim_rate_1 times_normal_rate
            0393: actor girl_1 perform_animation "SEX_3_w" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_1 animation "SEX_3_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                      
        end
        //________________________________________________________________________________ 
        if and                                                                                                                                                                                                                                                           
           Actor.Animation($PLAYER_ACTOR) == "SPANKING_SITTINGP"                                                                                                                                                                                                         
           Actor.Animation(girl_1) ==            "SPANKING_SITTINGW"                                                                                                                                                                                                         
        then                                                                                                                                                                                                                                                         
            0393: actor $PLAYER_ACTOR perform_animation "SPANKING_SITTINGP" at anim_rate_1 times_normal_rate                                                                                                                                                                         
            0393: actor girl_1 perform_animation "SPANKING_SITTINGW" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_1 animation "SPANKING_SITTINGW" time              
            if and                                                       
                get_org >= 0.30                                              
                0.40 >= get_org                                              
            then gosub @audio_span             
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                                                                                                                                   
        end
        //________________________________________________________________________________                                                                                                                                                                                                                                                               
        if and                                                                                                                                                                                                                                                           
           Actor.Animation($PLAYER_ACTOR) == "SNM_CANED_P"                                                                                                                                                                                                               
           Actor.Animation(girl_1) == "SNM_CANED_W"                                                                                                                                                                                                                          
        then                                                                                                                                                                                                                                                         
            0393: actor $PLAYER_ACTOR perform_animation "SNM_CANED_P" at anim_rate_1 times_normal_rate                                                                                                                                                                               
            0393: actor girl_1 perform_animation "SNM_CANED_W" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_1 animation "snm_caned_W" time              
            if and                                                       
                get_org >= 0.43                                              
                0.50 >= get_org                                              
            then gosub @audio_span             
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                                                                                                                                           
        end
        //________________________________________________________________________________                                                                                                                                                                                                                                                               
        if and                                                                                                                                                                                                                                                           
           Actor.Animation($PLAYER_ACTOR) == "SNM_CANED_w"                                                                                                                                                                                                               
           Actor.Animation(girl_1) == "SNM_CANED_P"                                                                                                                                                                                                                          
        then                                                                                                                                                                                                                                                         
            0393: actor $PLAYER_ACTOR perform_animation "SNM_CANED_w" at anim_rate_1 times_normal_rate                                                                                                                                                                               
            0393: actor girl_1 perform_animation "SNM_CANED_P" at anim_rate_1 times_normal_rate 
            0613: get_org = actor girl_1 animation "snm_caned_W" time              
            if and                                                       
                get_org >= 0.43                                              
                0.50 >= get_org                                              
            then gosub @audio_span             
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                                                                                                                                     
        end
        //________________________________________________________________________________                                                                                                                                                                                                                                                               
        if and                                                                                                                                                                                                                                                           
           Actor.Animation($PLAYER_ACTOR) == "SPANKEDP"                                                                                                                                                                                                                  
           Actor.Animation(girl_1) == "SPANKEDW"                                                                                                                                                                                                                             
        then                                                                                                                                                                                                                                                         
            0393: actor $PLAYER_ACTOR perform_animation "SPANKEDP" at anim_rate_1 times_normal_rate                                                                                                                                                                                  
            0393: actor girl_1 perform_animation "SPANKEDW" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_1 animation "SPANKEDW" time              
            if and                                                       
                get_org >= 0.43                                              
                0.50 >= get_org                                              
            then gosub @audio_span             
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                                                                                                                                       
        end
        //________________________________________________________________________________                                                                                                                                                                                                                                                               
        if and                                                                                                                                                                                                                                                           
           Actor.Animation($PLAYER_ACTOR) == "SPANKEDw"                                                                                                                                                                                                                  
           Actor.Animation(girl_1) == "SPANKEDp"                                                                                                                                                                                                                             
        then                                                                                                                                                                                                                                                         
            0393: actor $PLAYER_ACTOR perform_animation "SPANKEDw" at anim_rate_1 times_normal_rate                                                                                                                                                                                  
            0393: actor girl_1 perform_animation "SPANKEDp" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_1 animation "SPANKEDp" time              
            if and                                                       
                get_org >= 0.43                                              
                0.50 >= get_org                                              
            then gosub @audio_span             
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                                                                                                                                        
        end
        //________________________________________________________________________________                                                                                                                                                                                                                                                               
        if and                                                                                                                                                                                                                                                           
           Actor.Animation($PLAYER_ACTOR) == "SPANKINGP"                                                                                                                                                                                                                 
           Actor.Animation(girl_1) == "SPANKINGW"                                                                                                                                                                                                                            
        then                                                                                                                                                                                                                                                         
            0393: actor $PLAYER_ACTOR perform_animation "SPANKINGP" at anim_rate_1 times_normal_rate                                                                                                                                                                                 
            0393: actor girl_1 perform_animation "SPANKINGW" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_1 animation "SPANKINGW" time              
            if and                                                       
                get_org >= 0.43                                              
                0.50 >= get_org                                              
            then gosub @audio_span             
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                                                                                                                                            
        end
        //________________________________________________________________________________ 
         //items id = 23                                                                                                                                                                                                                                                             
        if and                                                                                                                                                                                                                                                           
           Actor.Animation(girl_1) == "SEX_1_p"                                                                                                                                                                                                                             
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_p"                                                                                                                                                                                                           
        then                                                                                                                                                                                                                                                         
            0393: actor girl_1 perform_animation "SEX_1_p" at anim_rate_1 times_normal_rate                                                                                                                                                                                         
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_p" at anim_rate_1 times_normal_rate
            0613: get_org = actor $PLAYER_ACTOR animation "SEX_1_p" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end
        end
        //________________________________________________________________________________
        if and                                                                                
            00E1:   player 0 pressed_key 7                                                    
            cath == false                                                                     
        then cath = true                                                                      
            if not anim_rate_1 >= 4.0                                                         
            then                                                                              
                anim_rate_1 += 0.1                                                            
                anim_rate_2 += 0.38                                                           
            end                                                                               
            05BF: AS_actor girl_1 look_at_actor $PLAYER_ACTOR 1000 ms                         
            05BF: AS_actor $PLAYER_ACTOR look_at_actor girl_1 1000 ms                         
        end                                                                                   
        if 80E1:   not player 0 pressed_key 7                                                 
        then                                                                                  
            if delay >= 10                                                                    
            then delay = 0                                                                    
                if anim_rate_1 > 0.0                                                          
                then anim_rate_1 -= 0.1                                                       
                     anim_rate_2 -= 0.38                                                      
                    0acd: "~r~~h~harder cat" 2000                                             
                else                                                                          
                    anim_rate_1 = 0.0                                                         
                    anim_rate_2 = 0.0                                                         
                end                                                                           
                05BF: AS_actor $PLAYER_ACTOR look_at_actor girl_1 1000 ms                     
                05BF: AS_actor girl_1 look_at_actor $PLAYER_ACTOR 1000 ms                     
            else delay += 1                                                                   
            end                                                                               
        end                                                                                   
        if 80E1:   not player 0 pressed_key 7                                                 
        then cath = false                                                                     
        end                                                                                   
    end 
    //----------------------
    //girl 2 anim func
    //----------------------
    if and
        056D:   actor girl_2 defined
        803B:   not  girl_2 == $PLAYER_ACTOR // (int)                                                                                                                                                                                                                                                    
    then
        //________________________________________________________________________________ 
        //items id = 1                                                                                         
        if and                                                                                                                                                                                                                           
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_P" //work                                                                                               
           Actor.Animation(girl_2) == "SEX_1_W"                                                                                                                                                                            
        then                                                                                                                                                                                                                        
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_P" at anim_rate_1 times_normal_rate                                               
            0393: actor girl_2 perform_animation "SEX_1_W" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_2 animation "SEX_1_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                        
        end
        //________________________________________________________________________________  
        //items id = 2                                                                                                                            
        if and                                                                                                                          
           Actor.Animation($PLAYER_ACTOR) == "SEX_2_P" //work                                                                   
           Actor.Animation(girl_2) == "SEX_2_W"                                                                                 
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "SEX_2_P" at anim_rate_1 times_normal_rate                                                                     
            0393: actor girl_2 perform_animation "SEX_2_W" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_2 animation "SEX_2_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                             
        end 
        //________________________________________________________________________________ 
        //items id = 3                                                                                                                                                      
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "SEX_3_P" //work                                                                                       
           Actor.Animation(girl_2) == "SEX_3_W"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "SEX_3_P" at anim_rate_1 times_normal_rate                                                                     
            0393: actor girl_2 perform_animation "SEX_3_W" at anim_rate_1 times_normal_rate 
            0613: get_org = actor girl_2 animation "SEX_3_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                   
        end 
        //________________________________________________________________________________ 
        //items id = 4                                                                                                                                                      
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_W" //work                                                                                       
           Actor.Animation(girl_2) == "SEX_2_P"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_W" at anim_rate_1 times_normal_rate                                                                     
            0393: actor girl_2 perform_animation "SEX_2_P" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_2 animation "SEX_1_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                         
        end 
        //________________________________________________________________________________ 
        //items id = 5
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_CUM_p" //work                                                                                       
           Actor.Animation(girl_2) == "SEX_1_CUM_w"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_CUM_p" at anim_rate_1 times_normal_rate                                                                     
            0393: actor girl_2 perform_animation "SEX_1_CUM_w" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_2 animation "SEX_1_cum_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                            
        end 
        //________________________________________________________________________________ 
        //items id = 7
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_W" //work                                                                                       
           Actor.Animation(girl_2) == "SEX_3_W"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_W" at anim_rate_1 times_normal_rate                                                                     
            0393: actor girl_2 perform_animation "SEX_3_W" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_2 animation "SEX_1_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                            
        end 
        //________________________________________________________________________________ 
        //items id = 8
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "BJ_COUCH_LOOP_p" //work                                                                                       
           Actor.Animation(girl_2) == "SEX_CAR_LOOP_W"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "BJ_COUCH_LOOP_p" at anim_rate_1 times_normal_rate                                                                     
            0393: actor girl_2 perform_animation "SEX_CAR_LOOP_W" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_2 animation "BJ_COUCH_LOOP_p" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_lod              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                     
        end 
        //________________________________________________________________________________ 
        //items id = 9
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "SEX_2_P" //work                                                                                       
           Actor.Animation(girl_2) == "SEX_1_P"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "SEX_2_P" at anim_rate_1 times_normal_rate                                                                     
            0393: actor girl_2 perform_animation "SEX_1_P" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_2 animation "SEX_1_p" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                       
        end
        //________________________________________________________________________________  
        if and                                                                                                                                                                                                                                                           
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_p"                                                                                                                                                                                                               
           Actor.Animation(girl_2) == "SNM_CANED_p"                                                                                                                                                                                                                          
        then                                                                                                                                                                                                                                                         
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_p" at anim_rate_1 times_normal_rate                                                                                                                                                                               
            0393: actor girl_2 perform_animation "SNM_CANED_p" at anim_rate_2 times_normal_rate
            0613: get_org = actor girl_2 animation "snm_caned_p" time              
            if and                                                       
                get_org >= 0.43                                              
                0.50 >= get_org                                              
            then gosub @audio_span             
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end               
        end
        //________________________________________________________________________________ 
        //items id = 16
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_P" //work                                                                                       
           Actor.Animation(girl_2) == "SEX_2_w"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_P" at anim_rate_1 times_normal_rate                                                                     
            0393: actor girl_2 perform_animation "SEX_2_w" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_2 animation "SEX_2_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                       
        end 
        //________________________________________________________________________________ 
        //items id = 13
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_W" //work                                                                                       
           Actor.Animation(girl_2) == "SEX_2_w"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_W" at anim_rate_1 times_normal_rate
            0393: actor girl_2 perform_animation "SEX_2_w" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_2 animation "SEX_2_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                      
        end 
        //________________________________________________________________________________ 
        //items id = 14
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_W" //work                                                                                       
           Actor.Animation(girl_2) == "SEX_1_w"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_W" at anim_rate_1 times_normal_rate
            0393: actor girl_2 perform_animation "SEX_1_w" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_2 animation "SEX_1_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                      
        end 
        //________________________________________________________________________________ 
        //items id = 18
        if and                                                                                                                                                   
           Actor.Animation($PLAYER_ACTOR) == "BJ_COUCH_LOOP_p" //work                                                                                       
           Actor.Animation(girl_2) == "SEX_3_w"                                                                                                                   
        then                                                                                                                                              
            0393: actor $PLAYER_ACTOR perform_animation "BJ_COUCH_LOOP_p" at anim_rate_1 times_normal_rate
            0393: actor girl_2 perform_animation "SEX_3_w" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_2 animation "SEX_3_w" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                      
        end
        //________________________________________________________________________________ 
        if and                                                                                                                                                                                                                                                           
           Actor.Animation($PLAYER_ACTOR) == "SPANKING_SITTINGP"                                                                                                                                                                                                         
           Actor.Animation(girl_2) ==            "SPANKING_SITTINGW"                                                                                                                                                                                                         
        then                                                                                                                                                                                                                                                         
            0393: actor $PLAYER_ACTOR perform_animation "SPANKING_SITTINGP" at anim_rate_1 times_normal_rate                                                                                                                                                                         
            0393: actor girl_2 perform_animation "SPANKING_SITTINGW" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_2 animation "SPANKING_SITTINGW" time              
            if and                                                       
                get_org >= 0.30                                              
                0.40 >= get_org                                              
            then gosub @audio_span             
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                                                                                                                                   
        end
        //________________________________________________________________________________ 
        if and                                                                                                                                                                                                                                                           
           Actor.Animation($PLAYER_ACTOR) == "SNM_CANED_P"                                                                                                                                                                                                               
           Actor.Animation(girl_2) == "SNM_CANED_W"                                                                                                                                                                                                                          
        then                                                                                                                                                                                                                                                         
            0393: actor $PLAYER_ACTOR perform_animation "SNM_CANED_P" at anim_rate_1 times_normal_rate                                                                                                                                                                               
            0393: actor girl_2 perform_animation "SNM_CANED_W" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_2 animation "snm_caned_W" time              
            if and                                                       
                get_org >= 0.43                                              
                0.50 >= get_org                                              
            then gosub @audio_span             
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                                                                                                                                           
        end
        //________________________________________________________________________________                                                                                                                                                                                                                                                               
        if and                                                                                                                                                                                                                                                           
           Actor.Animation($PLAYER_ACTOR) == "SNM_CANED_w"                                                                                                                                                                                                               
           Actor.Animation(girl_2) == "SNM_CANED_P"                                                                                                                                                                                                                          
        then                                                                                                                                                                                                                                                         
            0393: actor $PLAYER_ACTOR perform_animation "SNM_CANED_w" at anim_rate_1 times_normal_rate                                                                                                                                                                               
            0393: actor girl_2 perform_animation "SNM_CANED_P" at anim_rate_1 times_normal_rate 
            0613: get_org = actor girl_2 animation "snm_caned_W" time              
            if and                                                       
                get_org >= 0.43                                              
                0.50 >= get_org                                              
            then gosub @audio_span             
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                                                                                                                                     
        end
        //________________________________________________________________________________                                                                                                                                                                                                                                                               
        if and                                                                                                                                                                                                                                                           
           Actor.Animation($PLAYER_ACTOR) == "SPANKEDP"                                                                                                                                                                                                                  
           Actor.Animation(girl_2) == "SPANKEDW"                                                                                                                                                                                                                             
        then                                                                                                                                                                                                                                                         
            0393: actor $PLAYER_ACTOR perform_animation "SPANKEDP" at anim_rate_1 times_normal_rate                                                                                                                                                                                  
            0393: actor girl_2 perform_animation "SPANKEDW" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_2 animation "SPANKEDW" time              
            if and                                                       
                get_org >= 0.43                                              
                0.50 >= get_org                                              
            then gosub @audio_span             
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                                                                                                                                       
        end
        //________________________________________________________________________________                                                                                                                                                                                                                                                               
        if and                                                                                                                                                                                                                                                           
           Actor.Animation($PLAYER_ACTOR) == "SPANKEDw"                                                                                                                                                                                                                  
           Actor.Animation(girl_2) == "SPANKEDp"                                                                                                                                                                                                                             
        then                                                                                                                                                                                                                                                         
            0393: actor $PLAYER_ACTOR perform_animation "SPANKEDw" at anim_rate_1 times_normal_rate                                                                                                                                                                                  
            0393: actor girl_2 perform_animation "SPANKEDp" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_2 animation "SPANKEDp" time              
            if and                                                       
                get_org >= 0.43                                              
                0.50 >= get_org                                              
            then gosub @audio_span             
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                                                                                                                                        
        end
        //________________________________________________________________________________                                                                                                                                                                                                                                                               
        if and                                                                                                                                                                                                                                                           
           Actor.Animation($PLAYER_ACTOR) == "SPANKINGP"                                                                                                                                                                                                                 
           Actor.Animation(girl_2) == "SPANKINGW"                                                                                                                                                                                                                            
        then                                                                                                                                                                                                                                                         
            0393: actor $PLAYER_ACTOR perform_animation "SPANKINGP" at anim_rate_1 times_normal_rate                                                                                                                                                                                 
            0393: actor girl_2 perform_animation "SPANKINGW" at anim_rate_1 times_normal_rate
            0613: get_org = actor girl_2 animation "SPANKINGW" time              
            if and                                                       
                get_org >= 0.43                                              
                0.50 >= get_org                                              
            then gosub @audio_span             
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end                                                                                                                                                                                                                            
        end 
        //________________________________________________________________________________ 
        //items id = 23                                                                                                                                                                                                                                                             
        if and                                                                                                                                                                                                                                                           
           Actor.Animation(girl_2) == "SEX_1_p"                                                                                                                                                                                                                             
           Actor.Animation($PLAYER_ACTOR) == "SEX_1_p"                                                                                                                                                                                                           
        then                                                                                                                                                                                                                                                         
            0393: actor girl_2 perform_animation "SEX_1_p" at anim_rate_1 times_normal_rate                                                                                                                                                                                         
            0393: actor $PLAYER_ACTOR perform_animation "SEX_1_p" at anim_rate_1 times_normal_rate
            0613: get_org = actor $PLAYER_ACTOR animation "SEX_1_p" time              
            if and                                                       
                get_org >= 0.10                                              
                0.20 >= get_org                                              
            then gosub @audio_sex              
            else 
                if org_count > 1                                  
                then org_count -= 1
                end      
            end
        end
        //________________________________________________________________________________
        if and                                                                                       
            00E1:   player 0 pressed_key 7                                                           
            cath == false                                                                            
        then cath = true                                                                             
            if not anim_rate_1 >= 4.0                                                                
            then                                                                                     
                anim_rate_1 += 0.1                                                                   
                anim_rate_2 += 0.38                                                                  
            end                                                                                      
            05BF: AS_actor girl_2 look_at_actor $PLAYER_ACTOR 1000 ms                                
            05BF: AS_actor $PLAYER_ACTOR look_at_actor girl_2 1000 ms                                
        end                                                                                          
        if 80E1:   not player 0 pressed_key 7                                                        
        then                                                                                         
            if delay >= 10                                                                           
            then delay = 0                                                                           
                if anim_rate_1 > 0.0                                                                 
                then anim_rate_1 -= 0.1                                                              
                     anim_rate_2 -= 0.38                                                             
                    0acd: "~r~~h~harder cat" 2000                                                    
                else                                                                                 
                    anim_rate_1 = 0.0                                                                
                    anim_rate_2 = 0.0                                                                
                end                                                                                  
                05BF: AS_actor $PLAYER_ACTOR look_at_actor girl_2 1000 ms                            
                05BF: AS_actor girl_2 look_at_actor $PLAYER_ACTOR 1000 ms                            
            else delay += 1                                                                          
            end                                                                                      
        end                                                                                          
        if 80E1:   not player 0 pressed_key 7                                                        
        then cath = false                                                                            
        end                                                                                          
    end    
    if func_active >= 1    
    then
        if anim_rate_1 == 0.1                          
        then power = 1                     
        end                                    
        if anim_rate_1 ==  0.2                         
        then power = 2                      
        end                                    
        if anim_rate_1 ==  0.3                         
        then power = 3                      
        end                                    
        if anim_rate_1 ==  0.4                         
        then power = 5                      
        end                                    
        if anim_rate_1 ==  0.5                         
        then power = 10                      
        end                                    
        if anim_rate_1 ==  0.6                         
        then power = 20                      
        end                                    
        if anim_rate_1 ==  0.7                         
        then power = 30                      
        end                                    
        if anim_rate_1 ==  0.8                         
        then power = 40                      
        end                                    
        if anim_rate_1 ==  0.9                         
        then power = 50                      
        end                                    
        if anim_rate_1 >=  1.0                         
        then power = 60                     
        end
        pos_y = 365.0
        for count = 1 to 3 step 1
            0087: cent = pos_y // (float) 
            cent -= 4.0
            03F0: enable_text_draw 0 
            if count == 1
            then 038E: draw_box_position 51.0997  375.201  105.6998  46.4  0  0  0  200                                                                                                            
                
                    0093: size_x = integer power to_float                                                                                                          
                    0087: size_x = size_x // (float)                                                                                 
                    size_x /= 10.0                                                                                             
                    size_x *= 10.0                                                                                            
                    0087: pos_x = size_x // (float)                                                                                 
                    pos_x /= 2.0                                                                                                
                    pos_x += 40.0                                                                                              
                    033F: set_text_draw_letter_size 0.2  0.7                                                 
                    060D: draw_text_shadow 1   0  0  0  200                                                  
                    0340: set_text_draw_RGBA 255  255  255  200                                              
                    0349: set_text_draw_font 2                                                               
                    0343: set_text_draw_linewidth 700.0                                                      
                    033E: set_draw_text_position 4.0  cent  "fuh1"                                                                                             
                    038E: draw_box_position 70.0997 pos_y size 62.0 8.0 RGBA 100 100 100 250                                      
                    038E: draw_box_position pos_x pos_y size size_x 6.0 RGBA 200 50 50 255                                             
                                                                                                                         
            end                                                                                                              
            if count == 2                                                                                                       
            then                                                                                                             
                    0087: size_x = org_count // (float)                                                                                
                    size_x /= 10.0                                                                                             
                    size_x *= 10.0                                                                                            
                    0087: pos_x = size_x // (float)                                                                                 
                    pos_x /= 2.0                                                                                                
                    pos_x += 40.0                                                                                              
                    033F: set_text_draw_letter_size 0.2  0.7                                                 
                    060D: draw_text_shadow 1   0  0  0  200                                                  
                    0340: set_text_draw_RGBA 255  255  255  200                                              
                    0349: set_text_draw_font 2                                                               
                    0343: set_text_draw_linewidth 700.0                                                      
                    033E: set_draw_text_position 4.0  cent  "fuh2"                                                                                     
                    038E: draw_box_position 70.0997 pos_y size 62.0 8.0 RGBA 100 100 100 250                                      
                    038E: draw_box_position pos_x pos_y size size_x 6.0 RGBA 200 50 50 255                                             
                                                                                                                       
            end                                                                                                              
            if count == 3                                                                                                       
            then                                                                                                             
                                                                                                                        
                                                                                 
                    0087: size_x = podm // (float)                                                                                
                    size_x /= 10.0                                                                                             
                    size_x *= 10.0                                                                                            
                    0087: pos_x = size_x // (float)                                                                                 
                    pos_x /= 2.0                                                                                                
                    pos_x += 40.0                                                                                              
                    033F: set_text_draw_letter_size 0.2  0.7                                                 
                    060D: draw_text_shadow 1   0  0  0  200                                                  
                    0340: set_text_draw_RGBA 255  255  255  200                                              
                    0349: set_text_draw_font 2                                                               
                    0343: set_text_draw_linewidth 700.0                                                      
                    033E: set_draw_text_position 4.0   cent  "fuh3"                                                                                    
                    038E: draw_box_position 70.0997 pos_y size 62.0 8.0 RGBA 100 100 100 250                                      
                    038E: draw_box_position pos_x pos_y size size_x 6.0 RGBA 200 50 50 255                                             
                                                                                                                       
            end
            pos_y += 10.0
        end
    end
end

:audio_sex
if get_org >= 0.10
then 
    org_count = 0.0
    repeat
    org_count += 1.0
    until org_count > 2.0                                                                                
end            
if get_org >= 0.11
then 
    org_count = 0.0
    repeat
    org_count += 1.0
    until org_count > 5.0                                                                                
end            
if get_org >= 0.12
then 
    org_count = 0.0
    repeat
    org_count += 1.0
    until org_count > 7.0                                                                                
end            
if get_org >= 0.13
then 
    org_count = 0.0
    repeat
    org_count += 1.0
    until org_count > 8.0                                                                                
end            
if get_org >= 0.14
then 
    org_count = 0.0
    repeat
    org_count += 1.0
    until org_count > 9.0                                                                                
end            
if get_org >= 0.15
then 
    org_count = 0.0
    repeat
    org_count += 1.0
    until org_count > 10.0                                                                                
end            
if get_org >= 0.16
then 
    org_count = 0.0
    repeat
    org_count += 1.0
    until org_count > 20.0                                                                                
end            
if get_org >= 0.17
then 
    org_count = 0.0
    repeat
    org_count += 1.0
    until org_count > 30.0                                                                                
end            
if get_org >= 0.18
then 
    org_count = 0.0
    repeat
    org_count += 1.0
    until org_count > 40.0                                                                                
end            
if get_org >= 0.19
then 
    org_count = 0.0
    repeat
    org_count += 1.0
    until org_count > 50.0                                                                                
end            
if get_org >= 0.20
then 
    org_count = 0.0
    repeat
    org_count += 1.0
    until org_count > 60.0                                                                              
end            
if not podm >= 60.0          
then podm += 1.0             
end         
0AC6: tm_adr  = label @var offset                       
tm_adr += 0                                                                                          
0A8d: param tm_adr 4 0                                                                                                                                                                                              
if not param == 0x00
then
    Audiostream.PerformAction(param, STOP)                  
    Audiostream.Release(param)           
end            
if param = Audiostream.Load("CLEO\MP3\2G.MP3")                                                                                                                        
then                                                                                                                                                                    
    Audiostream.PerformAction(param, PLAY)                                                                                                        
    0AC6: tm_adr  = label @var offset                                                                                                                              
    tm_adr += 0                                                                                                                                                            
    0A8C: tm_adr 4 param 0
end                
return
end_thread
                
:audio_lod
if not podm >= 60                    
then podm += 1                  
end                            
0AC6: tm_adr  = label @var offset                       
tm_adr += 4                                                                                          
0A8d: param tm_adr 4 0                                                                                                                                                                                              
if not param == 0x00
then
    Audiostream.PerformAction(param, STOP)                  
    Audiostream.Release(param)           
end            
if param = Audiostream.Load("CLEO\MP3\4G.MP3")                                                                                                                        
then                                                                                                                                                                    
    Audiostream.PerformAction(param, PLAY)                                                                                                        
    0AC6: tm_adr  = label @var offset                                                                                                                              
    tm_adr += 4                                                                                                                                                            
    0A8C: tm_adr 4 param 0 
           
end                
return
end_thread                                

:audio_span
org_count += 1
if org_count > 60  
then org_count = 1
    if not podm >= 60          
    then podm += 3             
    end                       
end                    
0AC6: tm_adr  = label @var offset                       
tm_adr += 8                                                                                          
0A8d: param tm_adr 4 0                                                                                                                                                                                              
if not param == 0x00
then
    Audiostream.PerformAction(param, STOP)                  
    Audiostream.Release(param)           
end            
if param = Audiostream.Load("CLEO\MP3\2G.MP3")                                                                                                                        
then                                                                                                                                                                    
    Audiostream.PerformAction(param, PLAY)                                                                                                        
    0AC6: tm_adr  = label @var offset                                                                                                                              
    tm_adr += 8                                                                                                                                                            
    0A8C: tm_adr 4 param 0
      
end                
return
end_thread                                                                  
        
:var                                    
hex                              
  00 00 00 00
  00 00 00 00
  00 00 00 00                        
end

:action_speed
hex
00 00 00 00
00 00 00 00
end




end_thread


    
    
    
    
    
    
    
    
